home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / dmsii.s.lha / Include / OpenCloseRTPP < prev    next >
Encoding:
Text File  |  1992-12-21  |  1.3 KB  |  72 lines
  1.     ;    incdir    'Code:Include/'
  2.     ;    include    'Standard'
  3.     ;    include    'OpenCloseRTPP'
  4.  
  5.     ;    bsr    OpenRTPP
  6.     ;    ...
  7.     ;    bsr    CloseRTPP
  8.     ;    rts
  9.  
  10. CloseRTPP:    move.l    4.w,a6
  11.         move.l    RTBase(pc),a1
  12.         cmp.l    #0,a1
  13.         beq.w    SendError
  14.         jsr    -414(a6)
  15.         move.l    PPBase(pc),a1
  16.         cmp.l    #0,a1
  17.         beq.w    SendError
  18.         jmp    -414(a6)
  19.  
  20. OpenRTPP:    move.l    4.w,a6
  21.         lea.l    .RTNm(pc),a1
  22.         clr.l    d0
  23.         jsr    -552(a6)
  24.         move.l    d0,RTBase
  25.         move.l    #.RTErr,d2
  26.         move.l    #.RTLn,d3
  27.         tst.l    d0
  28.         beq.b    .ErrORTPP
  29.         lea.l    .PPNm(pc),a1
  30.         clr.l    d0
  31.         jsr    -552(a6)
  32.         move.l    d0,PPBase
  33.         move.l    #.PPErr,d2
  34.         move.l    #.PPLn,d3
  35.         tst.l    d0
  36.         bne.w    SendOK
  37.  
  38.         ;PP or RT not opened - Exit
  39.  
  40. .ErrORTPP:    move.l    4.w,a6
  41.         movem.l    d2-d3,-(sp)
  42.         lea.l    .DsNm(pc),a1
  43.         clr.l    d0
  44.         jsr    -552(a6)
  45.         move.l    d0,a6
  46.         move.l    #.WnNm,d1
  47.         move.l    #1005,d2
  48.         jsr    -30(a6)        ;Open Win
  49.         move.l    d0,d7
  50.         move.l    d7,d1
  51.         movem.l    (sp)+,d2-d3
  52.         jsr    -48(a6)        ;Write err
  53.         moveq.l    #-1,d1
  54. .B:        move.w    #$fff,$dff180
  55.         clr.w    $dff180
  56.         dbf    d1,.B
  57.         move.l    d7,d1
  58.         jsr    -36(a6)        ;Close win and Exit
  59.         bra    SendError
  60.  
  61. .WnNm:        dc.b    'con:170/108/300/40/Debug',0
  62. .DsNm:        dc.b    'dos.library',0
  63. .RTErr:        dc.b    'Could not open '
  64. .RTNm:        dc.b    'reqtools.library',0,$a
  65. .RTLn        =*-.RTErr
  66. .PPErr:        dc.b    'Could not open '
  67. .PPNm:        dc.b    'powerpacker.library',0,$a
  68. .PPLn        =*-.PPErr
  69.         even
  70. RTBase:        dc.l    0
  71. PPBase:        dc.l    0
  72.